home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbaseacc.arc / IOREVIEW.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.0 KB  |  85 lines
  1.          *********** IOREVIEW COMMAND FILE **************
  2. * Provides insertion order ,displays and printout.
  3. *      The operator can select all insertions for the client,
  4. * or can select only  those for a particular magazine.
  5. *******************************************************************
  6.  
  7. SET TALK OFF
  8. USE Inserts
  9.  
  10. STORE ' ' TO Again
  11. DO WHILE !(Again) <> 'F'
  12.    STORE '    ' TO MClient
  13.    STORE '               ' TO MMagazine
  14.    STORE ' ' TO Hardcopy
  15.    STORE ' ' TO Other
  16.    ERASE
  17.    @  2,11 SAY '    MEDIA SUMMARY:'
  18.    @  4,11 SAY 'ENTER CLIENT CODE' GET MClient
  19.    @  5,11 SAY '   MAGAZINE NAME?' GET MMagazine
  20.    @  6,11 SAY '       P to PRINT' GET Hardcopy
  21.    READ
  22.    IF MClient = ' '
  23.       @  9,0 SAY ' '
  24.       ? '    CLIENT missing.'
  25.       ? '    F if Finished,'
  26.       ? ' <Return> to continue.'
  27.       WAIT TO Again
  28.    ELSE
  29.       STORE !(MClient) TO MClient
  30.       STORE !(MMagazine) TO MMagazine
  31.       STORE !(Hardcopy) TO Hardcopy
  32.       @ 4,29 SAY MClient
  33.       @ 5,29 SAY MMagazine
  34.       @ 6,29 SAY Hardcopy
  35.       @ 9,0 SAY ' '
  36.       ?
  37.       ?
  38.       ACCEPT 'Type C to CHANGE any entries ' TO Changes
  39.       IF !(Changes) = 'C'
  40.          STORE ' ' TO Again
  41.          ERASE
  42.       ELSE
  43.          IF MMagazine >'              '
  44.             STORE TRIM(MMagazine) TO MMagazine
  45.             STORE '.AND. Magazine=MMagazine' TO Condition
  46.          ELSE
  47.            STORE CHR(0) TO Condition
  48.          ENDIF
  49.  
  50.         IF !(Hardcopy) = 'P'
  51.            STORE 'TO PRINT' TO Hardcopy
  52.         ELSE
  53.            STORE CHR(0) TO Hardcopy
  54.         ENDIF Hardcopy
  55.  
  56.        SET HEADING TO MEDIA SUMMARY FOR &MClient &MMagazine
  57.        REPORT FORM Media &Hardcopy FOR Client=MClient &Condition
  58.        ?
  59.        ? '     F if Finished,'
  60.        ? '  <Return> to continue.'
  61.        WAIT TO Again
  62.        ERASE
  63.     ENDIF okay to do report
  64.  ENDIF
  65. ENDDO Again
  66.  
  67. ERASE
  68. RELEASE ALL
  69. RETURN
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.